home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 94 / 094.d81 / cryptic 94 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  166 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 7 dimw$(300)
  3. 10 poke53281,0:poke53280,0:print"[147]"
  4. 12 sys57812"input any ce00",8,0:poke780,0:poke781,0:poke782,206:sys65493
  5. 14 gosub60000
  6. 16 sys52736,"cryptdata 94",dv
  7. 18 h=peek(252)*256+peek(251)
  8. 19 goto90
  9. 20 open4,4,7:close4
  10. 22 fl=0:poke214,20:print"[159]"
  11. 24 ifst=-128thenprintc$q$:fl=1:goto28
  12. 26 printc$u$:poke198,0
  13. 28 geta$:ifa$=""then28
  14. 29 return
  15. 30 poke214,23:print
  16. 32 print"   [193]ny key [155]- more    [210][197][212][213][210][206] [155]- menu[159][145]":poke198,0
  17. 34 geta$:ifa$=""then34
  18. 36 fg=0:ifa$=ch$thenfg=1
  19. 38 return
  20. 50 fori=130to150
  21. 52 ifw$(i)="*"thenx=i+1:i=150
  22. 54 next
  23. 56 return
  24. 90 v=53248
  25. 91 fori=832to876:pokei,255:next
  26. 92 fori=0to4:poke2040+i,13:pokev+39+i,6:next
  27. 93 pokev+16,0:pokev+29,31:pokev+27,31
  28. 94 fori=0to3:pokev+2*i,70+i*48:pokev+1+2*i,70:next:pokev+8,240:pokev+9,70
  29. 100 print"[147]"
  30. 101 ch$=chr$(13):bk$="[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]"
  31. 102 fori=0to4:readb$(i):next
  32. 103 data"[159] [195] [210] [217] [208] [212] [201] [195]   [195] [207] [210] [206] [197] [210] "
  33. 104 data"  1. [208]rint [195]ryptic           "
  34. 105 data"  2. [208]rint/[214]iew [211]olution     "
  35. 106 data"  3. [208]rint/[214]iew [201]nstructions "
  36. 107 data"  4. [200]ead [194]ack to [204][207][193][196][211][212][193][210]   "
  37. 108 p$="        [208]ress a number       "
  38. 109 r$="    ([208])rinter or ([211])creen    "
  39. 110 e$="                             "
  40. 111 q$=" [208]rinter's off!  [208]ress a key "
  41. 112 u$=" [211]et top of form - press key ":v$="  [208]ress a key to print clues "
  42. 113 tp$="[191][191][191][191][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146][191][191][191][191]"
  43. 114 md$="[191][191][191][191][221][159]                             [221][146][191][191][191][191]"
  44. 115 bt$="[191][191][191][191][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146][191][191][191][191]"
  45. 116 c$=""
  46. 117 pp$="                                            "
  47. 118 f$="     ":g$="!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--!"
  48. 119 gosub50
  49. 120 fori=1to4:d$(i)=c$+e$+ch$+c$+b$(i)+ch$+c$+e$:next
  50. 121 print""bk$:printtp$
  51. 122 fori=0to14:printmd$:next
  52. 124 printbt$:printbk$
  53. 126 printtp$:fori=0to2:printmd$:next:printbt$:printbk$"[145][145][145][145][159]":printc$p$
  54. 130 poke214,2:print:printc$b$(0):print""
  55. 132 pokev+21,31
  56. 134 fori=1to5:printc$b$(i):print"":next
  57. 158 poke198,0
  58. 160 geta$:ifa$<"1"ora$>"4"then160
  59. 162 k=val(a$)
  60. 164 poke214,k*3+1:print:print""d$(k)
  61. 166 onkgoto200,500,500,900
  62. 200 gosub20:ifflthen120
  63. 210 open4,4,7
  64. 215 fori=0to4:print#4:next
  65. 220 print#4,"             [203][207][207][203][207][204][207][199][217] [210][197][193][210][211] [201][212][211] [213][199][204][217] [200][197][193][196]"
  66. 230 print#4
  67. 240 print#4,f$g$
  68. 241 print#4,f$"! 1!  ! 2!  ! 3!  !##! 4! 5!  ! 6!  ! 7!  ! 8!"
  69. 242 print#4,f$"!  !  !  !  !  !  !##!  !  !  !  !  !  !  !  !"
  70. 243 print#4,f$g$
  71. 244 print#4,f$"!  !##!  !##!  !##!##!##!  !##!  !##!  !##!  !"
  72. 245 print#4,f$"!  !##!  !##!  !##!##!##!  !##!  !##!  !##!  !"
  73. 246 print#4,f$g$
  74. 247 print#4,f$"! 9!  !  !  !  !##!10!  !  !  !  !  !  !  !  !"
  75. 248 print#4,f$"!  !  !  !  !  !##!  !  !  !  !  !  !  !  !  !"
  76. 249 print#4,f$g$
  77. 250 print#4,f$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
  78. 251 print#4,f$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
  79. 252 print#4,f$g$
  80. 253 print#4,f$"!11!  !  !  !  !  !  !  !##!12!  !  !  !  !  !"
  81. 254 print#4,f$"!  !  !  !  !  !  !  !  !##!  !  !  !  !  !  !"
  82. 255 print#4,f$g$
  83. 256 print#4,f$"!  !##!  !#[216]!  !##!  !##!13!##!  !##!##!##!  !"
  84. 257 print#4,f$"!  !##!  !##!  !##!  !##!  !##!  !##!##!##!  !"
  85. 258 print#4,f$g$
  86. 259 print#4,f$"!14!  !  !  !##!15!  !  !  !  !  !  !16!##!##!"
  87. 260 print#4,f$"!  !  !  !  !##!  !  !  !  !  !  !  !  !##!##!"
  88. 261 print#4,f$g$
  89. 262 print#4,f$"!  !##!  !##!17!##!  !##!  !##!  !##!  !##!18!"
  90. 263 print#4,f$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
  91. 264 print#4,f$g$
  92. 265 print#4,f$"!##!##!19!  !  !  !  !  !  !  !##!20!  !  !  !"
  93. 266 print#4,f$"!##!##!  !  !  !  !  !  !  !  !##!  !  !  !  !"
  94. 267 print#4,f$g$
  95. 268 print#4,f$"!21!##!##!##!  !##!  !##!  !##!22!##!  !##!  !"
  96. 269 print#4,f$"!  !##!##!##!  !##!  !##!  !##!  !##!  !##!  !"
  97. 270 print#4,f$g$
  98. 271 print#4,f$"!23!  !24!  !  !  !##!25!  !  !  !  !  !  !  !"
  99. 272 print#4,f$"!  !  !  !  !  !  !##!  !  !  !  !  !  !  !  !"
  100. 273 print#4,f$g$
  101. 274 print#4,f$"!  !##!  !##!  !##!26!##!  !##!  !##!  !##!  !"
  102. 275 print#4,f$"!  !##!  !##!  !##!  !##!  !##!  !##!  !##!  !"
  103. 276 print#4,f$g$
  104. 277 print#4,f$"!27!  !  !  !  !  !  !  !  !##!28!  !  !  !  !"
  105. 278 print#4,f$"!  !  !  !  !  !  !  !  !  !##!  !  !  !  !  !"
  106. 279 print#4,f$g$
  107. 280 print#4,f$"!  !##!  !##!  !##!  !##!##!##!  !##!  !##!  !"
  108. 281 print#4,f$"!  !##!  !##!  !##!  !##!##!##!  !##!  !##!  !"
  109. 282 print#4,f$g$
  110. 283 print#4,f$"!29!  !  !  !  !  !  !  !##!30!  !  !  !  !  !"
  111. 284 print#4,f$"!  !  !  !  !  !  !  !  !##!  !  !  !  !  !  !"
  112. 285 print#4,f$g$
  113. 310 fori=0to16:print#4:next
  114. 312 poke214,20:print:printc$v$:poke198,0
  115. 313 geta$:ifa$=""then313
  116. 315 z=(h-x)/2-1
  117. 320 fori=xtox+z
  118. 322 print#4,w$(i);
  119. 324 print#4,left$(pp$,40-len(w$(i)))w$(i+33)
  120. 326 next
  121. 332 print#4:close4
  122. 334 goto120
  123. 500 ifk=3thend1=1:d2=99:d3=49:d4=49
  124. 501 ifk=2thend1=100:d2=x-1:d4=(d2-99)/2:d3=99+d4
  125. 502 poke214,20:print"[159]":printc$r$:poke198,0
  126. 503 getk$:ifk$=""then503
  127. 504 ifk$="p"then550
  128. 506 ifk$="s"then510
  129. 508 goto120
  130. 510 pokev+21,0:print"[147][159]":fori=d1tod2
  131. 512 ifw$(i)<>"\"then520
  132. 514 gosub30:iffgtheni=d2:next:print"[147]":goto120
  133. 516 print"[147]":i=i+1
  134. 520 ifw$(i)<>"*"thenprint" "w$(i)
  135. 524 next
  136. 526 gosub30:iffgtheni=d2:print"[147]":goto120
  137. 528 goto510
  138. 550 gosub20:ifflthen120
  139. 552 open4,4,7:fori=0to2:print#4:next
  140. 554 fori=d1tod3:l=len(w$(i))
  141. 555 ifw$(i)="\"thenprint#4," ";:goto557
  142. 556 print#4," "w$(i);
  143. 557 ifw$(i+d4)="\"thenprint#4," ":goto560
  144. 558 print#4,left$(pp$,40-l)w$(i+d4)
  145. 560 next
  146. 562 fori=0to63-d4+(k=3):print#4:next:close4
  147. 564 goto120
  148. 900 fori=0to1000:next:pokev+21,0
  149. 905 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  150. 910 ifer<>63thenprint"[147]":end
  151. 920 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  152. 930 print"run"
  153. 940 poke631,13:poke632,13:poke198,2:end
  154. 10000 open15,8,15,"s0:cryptic 94":close15:save"cryptic 94",8:end
  155. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  156. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  157. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  158. 60030 z$(0)="[195] [210] [217] [208] [212] [201] [195]   [195] [207] [210] [206] [197] [210]  #94":z$(1)="by [198]ender [212]ucker
  159. 60040 z$(2)[178]"(NULL)1.0 (len) 1992 by (NULL)oftdisk, right$nc."[170][199](13)
  160. 60050 z$(3)[178]"(NULL)his program is the copyrighted work
  161. 60060 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]t is not"
  162. 60070 z$(5)="shareware or in the public domain."
  163. 60080 z$(6)="[210]eport illegal distribution of":z$(7)="this program by calling"
  164. 60090 z$(8)="1-800-831-2694 or 1-318-221-8718.":poke214,12:print
  165. 60100 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return
  166.